Public Class clsBitacoraRN
    Dim BitSD As New clsBitacoraSD

    Function InsertaBitacora(ByVal strTipo As String, ByVal cRegistro As String)
        BitSD.InsertaBitacora(strTipo, cRegistro)
    End Function

End Class
